SCREEN _NEWIMAGE(640,200,12)
fg = 15 : bg = 0 : l_count = 0
DIM AS INTEGER c(1 TO 5)
DIM img%(10000)
GOSUB set_colors

again:
  FOR i = 1 TO 1000
    x = INT(RND * 640) : y = INT( RND * 200)
    PSET (x,y), c(INT(RND * 5) + 1)
  NEXT i
  _DELAY 0.00125
  GET (0,0) - (639,199), img%
  CLS
  PUT (0,1), img%, PSET
  l_count = l_count + 1
  IF ( l_count MOD 280 ) = 0 THEN bg = ( bg + 1 ) MOD 15 : GOSUB set_colors
GOTO again

set_colors:
  COLOR fg,bg
  c(1) = fg  : c(2) = fg : c(3) = bg : c(4) = bg : c(5) = bg
RETURN